home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / psfrag / ps2frag.ps < prev    next >
Text File  |  1993-10-30  |  5KB  |  183 lines
  1. %! PS-Adobe-2.0
  2. %
  3. % PostScript program for reading an EPSF file and writing out a LaTeX
  4. % file that contains information about each piece of text shown by the
  5. % ps file.
  6. % 
  7. % GhostScript Usage:
  8. %
  9. %    dx dy (EPSFbaseName.ext) FragConvert
  10. %
  11. %    Reads EPSFbaseName.ext and writes latex information to EPSFbaseName.frag
  12. %    The show text coordinates are offset by dx, dy.
  13. %
  14. % Revision History:
  15. %   30-Oct-93   Piet Tutelaers  added /FragFile function and renamed it
  16. %                               to ps2frag.ps (instead of ps2psfrag.ps)
  17. %   20-Sep-92   Craig Barratt    Released version 1.1.
  18. %   13-Sep-92   Craig Barratt    Added support for ashow, widthshow, awidthshow,
  19. %                and kshow.
  20. %   21-Jul-92   Craig Barratt    Correctly handle empty show strings.  Added
  21. %    9-Jun-92   Craig Barratt    Changed egrep to grep for system V users.
  22. %    1-Jun-92   Craig Barratt    Released version 1.0.
  23. %   23-Feb-92   Craig Barratt    Initial version.
  24. %
  25. % Send comments and bugs to Craig Barratt (craig@isl.stanford.edu)
  26. %
  27.  
  28. /fragdict 30 dict def
  29.  
  30. fragdict begin
  31.  
  32. % write a string to the output file
  33. /w { FragOutFile exch writestring } bind def
  34. % write an argument to the output file
  35. /warg { ({) w w (}) w } bind def
  36. /p { 16 string cvs print flush } def
  37. /sp { ( ) p } def
  38.  
  39. %
  40. % writes out latex information into the psfrag file for
  41. % each show operator
  42. %
  43. /FragProcessShow {
  44.     FragPass 1 eq
  45.     {
  46.     % pass 1: write out just the show string
  47.     /s exch def
  48.     % we only care about non-empty show strings
  49.     s () eq not
  50.     {
  51.         s (\\tex) anchorsearch
  52.         {
  53.         pop pop
  54.         }
  55.         {
  56.         pop
  57.         (    \\PsFragShowString) w s warg (\n) w
  58.         } ifelse
  59.     } if
  60.     }
  61.     {
  62.     % pass 2: write out psfrag info
  63.     /s exch def
  64.     % we only care about non-empty show strings
  65.     s () eq not
  66.     {
  67.         gsave
  68.         matrix currentmatrix /origMatrix exch def
  69.         currentpoint /origy exch def /origx exch def
  70.         % write out the string as the first arg
  71.         s (\\tex) anchorsearch {
  72.         % define this fragment using an empty label
  73.         pop (    \\psfrag{}) w w (\n) w
  74.         % now immediately refer to the empty label
  75.         (    \\PsFragInfo{}) w
  76.         }
  77.         {
  78.         pop (    \\PsFragInfo) w s warg
  79.         } ifelse
  80.         % write out the current point in abs coords as the next two args
  81.         initmatrix currentpoint /abslly exch def /absllx exch def
  82.         absllx FragDx add 30 string cvs warg
  83.         abslly FragDy add 30 string cvs warg
  84.         % get width, height and orientation of the string
  85.         origMatrix setmatrix
  86.         newpath 0 0 moveto s true charpath pathbbox
  87.         /ury exch def /urx exch def pop pop
  88.         origx origy moveto urx 0 rmoveto
  89.         initmatrix currentpoint /abslry exch def /abslrx exch def
  90.         origMatrix setmatrix
  91.         origx origy moveto 0 ury rmoveto
  92.         initmatrix currentpoint /absuly exch def /absulx exch def
  93.  
  94.         % write out dx and dy for the lower left to lower right vector
  95.         abslrx absllx sub 30 string cvs warg
  96.         abslry abslly sub 30 string cvs warg
  97.  
  98.         % write out dx and dy for the lower left to upper left vector
  99.         absulx absllx sub 30 string cvs warg
  100.         absuly abslly sub 30 string cvs warg
  101.  
  102.         % write out the text angle (keep it between -180 and 180,
  103.         % and round to the nearest 0.01)
  104.         abslry abslly sub abslrx absllx sub
  105.         % avoid atan(0,0): check if both numbers are zero
  106.         % (bug reported by Noel Doughty nad@phys.canterbury.ac.nz)
  107.         2 copy abs exch abs add
  108.         0 eq { pop pop 0 } { atan } ifelse
  109.         dup 360 div round 360 mul sub
  110.         100 mul round 100 div 30 string cvs warg
  111.  
  112.         % finish up
  113.         (\n) w
  114.         origMatrix setmatrix
  115.         origx origy moveto
  116.         grestore
  117.     } if
  118.     } ifelse
  119. } bind def
  120.  
  121. end
  122.  
  123. userdict begin
  124.  
  125. %
  126. % redefine all the show operators to call FragProcessShow,
  127. % and then do the normal show
  128. %
  129. /widthshow  { dup fragdict begin FragProcessShow end widthshow  } bind def
  130. /awidthshow { dup fragdict begin FragProcessShow end awidthshow } bind def
  131. /ashow      { dup fragdict begin FragProcessShow end ashow      } bind def
  132. /kshow      { dup fragdict begin FragProcessShow end kshow      } bind def
  133. /show       { dup fragdict begin FragProcessShow end show       } bind def
  134.  
  135. % Added for portability reasons (rcpt@urc.tue.nl: 931027)
  136. /FragFile { % filename[.ext] FragFile filename.frag
  137.   /fn exch def
  138.   fn length /len exch def
  139.   /i 0 def
  140.   { fn i get
  141.     46 eq { exit } if
  142.     i 1 add dup /i exch def
  143.     len eq { exit } if
  144.   } loop
  145.   i 5 add string /ff exch def
  146.   ff 0 fn 0 i getinterval putinterval
  147.   ff i (.frag) putinterval
  148.   ff
  149. } bind def
  150.  
  151. /FragConvert {
  152.     fragdict begin
  153.     /FragInFileName exch def
  154.     FragInFileName FragFile (w) file /FragOutFile exch def
  155.     /FragDy exch def
  156.     /FragDx exch def
  157.     (\%\n\% File automatically generated by ps2psfrag and GhostScript.\n) w
  158.     (\% It is included by \\epsfbox or \\psfragspecial.\n) w
  159.     (\% Do not \\input directly, or edit!\n\%\n) w
  160.     (\\begin{PSFragmentLocs}\n) w
  161.     %
  162.     % I'm really lazy, so we run through the ps file twice.
  163.     % The first pass generates a list of \PsFragShowString{} calls.
  164.     % These are used by latex to check if the strings is being replaced.
  165.     % The second pass generates a list of \PsFragInfo{} calls, which
  166.     % contains complete information about each ps fragment.
  167.     %
  168.     /FragPass 1 def
  169.     gsave /FragVM save def
  170.         FragInFileName userdict begin run end
  171.     FragVM restore grestore
  172.     (    \\put(0,0){\\special{\\PsFragSpecialArgs}}\n) w
  173.     /FragPass 2 def
  174.     gsave /FragVM save def
  175.         FragInFileName userdict begin run end
  176.     FragVM restore grestore
  177.     (\\end{PSFragmentLocs}\n) w
  178.     FragOutFile closefile
  179.     end
  180. } bind def
  181.  
  182. end
  183.